<% dim page_id page_id=request.querystring("page_id") dim cpage, rpage, sqlpage set cpage=server.createobject("adodb.connection") cpage.open DSN_NAME sqlpage="select page_content,page_title from pages where page_id=" & page_id set rpage=server.createobject("adodb.recordset") rpage.open sqlpage, cpage, 3 dim page_content, page_title if not rpage.eof then page_content=rpage("page_content") page_content=replace(page_content,""",chr(34)) page_content=replace(page_content,"'",chr(39)) page_title=rpage("page_title") else page_content=" " page_title=" " end if %>

colSpan=5>  ▼  <%=page_title%>

height=350> <%=page_content%>